%include	'Macros.inc'
;
;	�������� � ���������� Sector N-� ������ �������� ������ ���������,
;		�������� ��������� ����� ����� ������� � ���������� Address
;	-------------------------------------------------------------------
;
absolute	5ch			;��������� ���� ����� �����-�������� 5ch
Seg_glob	resw	1		;�����-������� ������� ���������� ����������
; ����������� ������� ������
	segment	data
;���������� ���������� (��������� ������ ���������)
Sector	times	256	db	0	;����� ��� ������� ������
Address	dw	0			;���. ����� ������� � ������� ������
Pf	db	0 			;������� �������������� = 1 - ���� �� �����, 0 - ��.
Lf	dw	0			;����� ��������� ����� � �������� �� 256 ����
Segin	dw	0			;����� ��� ����������� ������-�������� ������ ���������
B	db	0			;����� �������������� ����� � ���������� ���������� Sector
Nt	db	0			;����� (0 ��� 1) ������������� ������� � �����. 0 - ������� �������, 1 - �������
Lognum	dw	0			;���������� ����� �����
; ����������� ������� �����
	segment	stack
	times	64	db	0
; ����������� ������� ����
	segment	code
..start:
;"��������" ������������ �������� ������ � ��������. ������� ������
	mov	ax,data
	mov	es,ax
;����������� ���������� ���������� � ������� ������
	mov	cx,267			;CX <- ����� ���������� �������
	cld				;DF <- 0
	push	ds			;����������� �������� ����������� DS
	mov	ax,[Seg_glob]		;"��������" ���������� �������
	mov	ds,ax			; � �������� ������� ������
	xor	si,si			;SI <- 0
	xor	di,di			;DI <- 0
rep	movsb				;�������� �����������
;���������� �������� ������������� ��������� ���������
	push	bx
	mov	ax,code			;"��������" ������������ �������� ����
	mov	ds,ax                   ; � �������� ������� ������ 
	call	Send_crlf		;������� ������
	Out_str	HeaderInputSector	;������� ���������
	call	Read_byte_hex		;��������� ���������� ����������������� �����
	shl	bx,8			;�������� ����� �� 8 ��������
	mov	[es:Address],bx		;�������� ����� �����
	pop	bx
	pop	ds
;�������� ����������� ���������� ����������
	mov	cx,267			;CX <- ����� ���������� �������
	cld				;DF <- 0
	mov	bx,[Seg_glob]		;BX <- ����� ���������� ����������
	mov	ax,es			;"��������" � �������� ������� ������ 
	mov	ds,ax			; ������������ �������� ������
	mov	es,bx			;"��������" � ��������. ������� ������
	xor	si,si			;SI <- 0
	xor	di,di			;DI <-0
rep	movsb				;�������� �����������
;���������� ���������
	mov	ax,4c00h
	int	21h
HeaderInputSector db	'Input number Sector: $'
%include	'Video_io.asm'		; -"-
%include	'Cursor.asm'		; -"-
%include	'Kbd_io.asm'		; -"-